home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / avm1_19.lha / rexx / callup.avm < prev    next >
Text File  |  1994-04-06  |  496b  |  20 lines
  1. /* */
  2. parse upper arg number
  3.  
  4. prevdir = pragma('directory', 'avmrexx:')
  5. call open('configfile', 'avm:player.cfg', 'r')
  6. foundServer = 0
  7. do while ~eof('configfile')
  8.   line = readln('configfile')
  9.   parse upper var line variable '=' value
  10.   if variable = 'SERVER' then do
  11.     address rexx 'usebracket.avm' value 'secretary.avm' value number
  12.     foundServer = 1
  13.   end
  14. end
  15.  
  16. call close('configfile')
  17.  
  18. if ~foundServer then say "Couldn't find a server in avm:player.cfg"
  19. call pragma('directory', prevdir)
  20.